home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
selfile.zip
/
TEST.PAS
< prev
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
2KB
|
113 lines
{$V-}
{$T+}
{$D+}
Uses Selfile,Dos,Crt;
Const
Title = 'Test Selfile';
Var
filname : string[12];
Path : String[3];
Attr : Integer;
IRetVal : integer;
RowB,
ColB,
RowQ,
ColQ,
Active,
Inactive,
Boarder : Integer;
ch : Char;
Begin
Path := '*.*'; { look at all files current directory }
Attr := 0;
{ First call selfile using default window size...}
IRetVal := sel_file(filname,Title,Path,Attr);
clrscr;
writeln('IRetVal = ',iretval);
writeln('filname = ',filname);
Write('Hit a key to continue...');
ch := readkey;
{ now a single colum in upper left corner of screen...}
RowB := 1;
ColB := 1;
RowQ := 10;
ColQ := 1;
Active := 112;
Inactive := 31;
Boarder := 1;
SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
IRetVal := Sel_File(Filname, Title, Path, Attr);
clrscr;
writeln('IRetVal = ',iretval);
writeln('filname = ',filname);
Write('Hit a key to continue...');
ch := readkey;
{ now a double colum in upper left corner of screen...}
RowB := 1;
ColB := 1;
RowQ := 10;
ColQ := 2;
Active := 112;
Inactive := 31;
Boarder := 1;
SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
IRetVal := Sel_File(Filname, Title, Path, Attr);
clrscr;
writeln('IRetVal = ',iretval);
writeln('filname = ',filname);
Write('Hit a key to continue...');
ch := readkey;
{ now a triple colum in upper middle of screen...}
RowB := 5;
ColB := 15;
RowQ := 10;
ColQ := 3;
Active := 112;
Inactive := 31;
Boarder := 1;
SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
IRetVal := Sel_File(Filname, Title, Path, Attr);
clrscr;
writeln('IRetVal = ',iretval);
writeln('filname = ',filname);
Write('Hit a key to continue...');
ch := readkey;
{ now a triple colum in upper middle of screen, but lets reverse attrs...}
RowB := 5;
ColB := 15;
RowQ := 10;
ColQ := 3;
Active := 31;
Inactive := 112;
Boarder := 1;
SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
IRetVal := Sel_File(Filname, Title, Path, Attr);
clrscr;
writeln('IRetVal = ',iretval);
writeln('filname = ',filname);
Write('Hit a key to continue...');
ch := readkey;
end.